﻿Imports 地图商家采集系统.MEnum

Public Class CMapProcess
    Sub Process(task As Model_Task)
        If task IsNot Nothing Then
            Dim map As IMap = Nothing
            Select Case task.TaskMode
                Case MapMode.BaiDu
                    map = New CBaiDuFactory(task).CreateMap
                Case MapMode.GaoDe
                    map = New CGaoDeFactory(task).CreateMap
                Case MapMode.S360
                    map = New CS360Factory(task).CreateMap
                Case MapMode.SouGou
                    map = New CSougouFactory(task).CreateMap
                Case MapMode.TengXun
                    map = New CTengXunFactory(task).CreateMap
                Case Else
            End Select
            If map IsNot Nothing Then map.Deal()
        End If
    End Sub
End Class

